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0 LTITLE MTHSDPROD = DOUBLE PRECISION PRODUCT 
‘IDENT. /1-002/ : File: MTHDPROD.MAR 


—PARAAAAAAARAARARAAARLALAALASALALL EAA SELASE SESE E SESS ERR R RSE SESE EERE SRS R SEES 


:* * 
;* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
;* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ® 
ALL RIGHTS RESERVED. po 
* 

;* THIS * 
:* * . iH ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
* 

ee £ 0 * 
he SON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. * 
;* * 
;* THE coy IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
¢* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
;* CORPORATION. * 
;* * 
;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. e 
;* * 
:* * 
“f * 


(LRARRAAASRARASARLARASASLASAAASEALASALSLESLEASASER ESSE ALES ERR ERASER SSSR SERRA SS SS 


: ; FACILITY: MATH LIBRARY 
: ; "ABSTRACT: 


This module contains routine MTHSDPROD: | 
Return the product of two double-precision arguments. 


; VERSION: 0 
; ; HISTORY: 


; ; AUTHOR: 
Jonathan M. Taylor, 27-Jul-77: Version 0 


; MODIFIED BY: 


SOOOSOCSSOSSOSSOSSOSOSSSOSSOOSCSOSOSOSOSOSSOOSOSOSOOOSOOOOOOOOOOSoO 
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r 
ed Current Edit History MTHRTL.SRCIJMTHDPROD.MAR; 1 
-SBTTL HISTORY ; Detailed Current Edit History 


; Edit History for Version 0 of MTHSDPROD 


: 0-3. = Remove MTHSFLAG_JACKET. TNH S-July-78 
; 1-001 = Update version number and copyright notice. JBS 16-NOV-78 
3; 1-002 = Add ‘'_"’ to the PSECT directive. JBS 22-DEC-78 
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1-002 DECLARATIONS g-SEpa 1984 94:93:39 MTHRTL.SRCIMTHDPROD.MAR;1 ay 
| 
23 -SBTTL DECLARATIONS 
61; 
86 3; INCLUDE FILES: 
8 63; oerr.mar 
64 ; 
44 65 
00 06 ; | 
0000 67 ; EXTERNAL SYMBOLS: | 
a4 68 ; NONE 
000 S? : 
3808 0 
00 71; 
0000 oe : 
0000 73 ; MACROS: 
0000 7%: NONE 
0000 75 : 
0000 76 
0000 77; 
0000 78 ; PSECT DECLARATIONS: 
00000000 79 -PSECT _MTHSCODE PIC, SHR, EXE, NOWRT, LONG 
0000 80 
0000 5} 3 
0000 ¢ ; EQUATED SYMBOLS: 
0000 83 ; NONE 
0000 84; 
0000 85 
0000 86 ; 
0000 87 ; OWN STORAGE: 
0000 88 ; NONE 
0000 89 ; 
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UB 
DP 
4 -SBTTL MTHSDPROD = return DOUBLE product of two FLOATING args 
35 3+ 
94 ; FUNCTIONAL DESCRIPTION: 
95 ; Convert the two single-precision ted ae = age prqusente to 
89 3 qoustenprects len, eturn the result of their multiplication 
97 ; in double-precision. 
0 98 ; 
0 99 ; 
139 ; CALLING SEQUENCE: 
: ; Double_product.wd.v = MTHSDPROD (argi.rf.r, arg2.rf.r) 
0 108 
000 104; 
0000 105 ; INPUT PARAMETERS: 
4 196 3 The two input parameters are single-precision floating-point 
000 107; values and are call-by-reference. 
0000 108 ; 
0000 109 ; 
0000 110 ; IMPLICIT INPUTS: 
0000 111; NONE 
0000 We 3 
0000 113 ; OUTPUT PARAMETERS: 
0000 114; NONE 
0000 115; 
0000 116 ; IMPLICIT OUTPUTS: 
0000 117; NONE 
0000 118; 
0000 119 ; COMPLETION CODES: 
0000 120; NONE 
0000 121; 
9000 122 ; SIDE EFFECTS: 
0000 123; Reserved Operand and Floating Overflow exceptions can occur. 
0000 124; 
0000 193 $ 
0000 126 ;-- 
0000 127 
0000 128 
0000 129 
000C 0000 130 ENTRY MTHSDPROD “M<R2, R3> 3; save R2 and R35 
56 0002 131 CVTFD aa(AP), RO > RO/R1 = argl 
56 0006 1 ¢ CVTFD @8C(AP), R2 : R2/R3 = arge 
64 QO0A 1 MULD R2, RO 3 R1 = RO7R1 * R2/R3 
04 4443 134 RET 
OOE 135 
QOOE 136 
OOOE 137 - END 
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MTHSOPROD 00000000 RG 01 


owen ren roo ennannae > 


! Psect synopsis ! 


dace ee ee sen mesczast 


PSECT name Allocation PSECT No. Attributes 
0000000 ? ) 00 ( 0.) NOPIC USR CON ABS 


- ABS, . LCL NOSHR NOEXE NORD NOWRT NOVEC BY 
_MTHSCODE OOOOOOE (¢ 14.) O1C 1.) PIC USR CON REL LCL SHR~ EXE 


TE 
RD NOWRT NOVEC LONG 


Phase Page faults CPU Time Elapsed Time 


Initialization rf 00:00: 0.09 0:00:0 15 
ponnene processing 125 Ba 0:00.43 0:00: § 
Pas 66 0:00:00.34 0:00:02.51 
Symbol table sort 0 00:00:00. ° 0:00:00.00 
Pass 2 38 0:00:00. 8:09:09 8 
Symbol table output 1 0: O88 - 1 0:00:00.01 
Psect synopsis output 3 0:00:00.01 SB Ba 
Cross-reference output 0 B82 89 Ry -90 B08 88-88 
Assembler run totals 266 00:00:01.1 00:00:08.0 


The working set Limit was 900 popes. 

1313 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 1 non-local and 0 Local symbols. 
137 source Lines were read in Pass 1, producing 10 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 


errr eee ner en eee ee ence meena $ 


Macro Library name Macros defined 
“S255SDUAZB:(SYSLIBISTARLET.MLB:20 0 tS 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRE SS ION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHDPROD/OBJ=OBJ$:MTHDPROD MSRC$:MTHDPROD/UPDATE=(ENHS$:MTHDPROD ) 
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